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Lisa Hardware Interface & lmplementation 


Apple Lisa Hardware Unit 


UNIT HWINT; INTRINSIC; Creat od by ‘ 
INTERFACE 
(in Lisa Pascal) Nout Aa (rast 


TYPE 
Ascii Char; | 4g 


Pixels Integer; 

ManyPixels Longint; 

CursarHeight Integer; 

CursorPtr “Integer; 

LogicalAddress LongInt; 

DateArray RECORD 
year : Integer; 
day : Integer; 
hour : Integer; 
minute : Integer; 
second : Integer; 

END; 

LongInt; 

LongInt; 

LongInt: 

LongInt,; 

Integer; 

Integer; 

Integer; 

(PriSern, AltScrn); 

4... 1000; 

Integer; 

0..127; 

SET OF KeyCap; 

PACKED RECORD 
key : KeyCap; 
ascii : Char; 
state : Integer; 
mouseX : Pixels; 
mouseY : Pixels; 
time : MilliSeconds; 

END; 


vuow wow won 


Frames 
Seconds 
MilliSeconds 
NicroSeconds 
AlarmNumber 
SpeakerVolume 
ScreenContrast 
VisibleSern 
KeybdQIndex 
Keybdid 
KeyCap 
KeyCapSet 
KeyEvent 


PROCEDURE DriverInit; 

PROCEDURE DiskDriver(routine: LogicalAddress); 
PROCEDURE TwiggyDriver(routine: LogicalAddress); 
PROCEDURE DiskSync(busy: Boolean); 
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Lisa Hardware Interface & lmplementation 


PROCEDURE NMISync; 

PROCEDURE COPSSync; 

PROCEDURE Poll; 

PROCEDURE MouseLocation(VAR x: Pixels; VAR y: Pixels): 
PROCEDURE MouseUpdates(delay: HilliSeconds): 

PROCEDURE MouseScaling(scale: Boolean); 

PROCEDURE HouseThresh(threshold: Pixels); 

FUNCTION MouseOdometer: ManyPixels; 

PROCEDURE CursorLocation(x: Pixels: y: Pixels); 
PROCEDURE CursorTracking(track: Boolean); 


PROCEDURE CursorImage(hotx: Pixels; hotY: Pixels: height: CursorHeight: 
data: CursorPtr; mask: CursorPtr); 


PROCEDURE CursorHice: 


PROCEDURE CursorShield(left: Pixels; top: Pixels: right: Pixels; 
bottom: Pixels); ‘ 


PROCEOURE CursorDisplay; 
PROCEDURE CursorObscure; 
PROCEDURE CursorInit; 
PROCEDURE CursorReInit; 


PROCEDURE BusyImage(hotX: Pixels; hotY: Pixels: height: CursorHeight: ~ 
data: CursorPtr:; mask: CursorPtr); 


PROCEDURE BusyDelay(delay: MilliSeconds); 

FUNCTION FrameCounter: Frames: 

PROCEDURE ScreenSize(VAR x: Pixels; VAR y: Pixels); 
FUNCTION ScreenAddr: LogicalAddress; 

FUNCTION AltScreenAddr: LogicalAddress; 

FUNCTION ScreenKeybd: VisibleScreen; 


PROCEDURE SetScreenKkeybd(screen: VisibleScreen); 
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Lisa Hardware Interface & lmplementation 


FUNCTION Contrast: ScreenContrast; 

PROCEDURE SetContrast(contrast: ScreenContrast): 
PROCEDURE RampContrast(contrast: ScreenContrast); 
FUNCTION DimContrast: ScreenContrast; 

PROCEDURE SetDimContrast(contrast: ScreenContrast); 
FUNCTION FadeDelay: HilliSeconds; 

PROCEDURE SetFadeDelay(delay: HilliSeconds); 
PROCEDURE PowerDown; 

PROCEDURE PowerCycle(delay: Seconds); 

FUNCTION Volume: SpeakerVolume; 

PROCEDURE SetVolume(volume: SpeakerVolume): 
PROCEDURE Noise(waveLength: MicroSeconds); 
PROCEDURE Silence; 

PROCEDURE Beep(waveLength: MicroSeconds; duration: MilliSeconds); 
FUNCTION Keyboard: KeybdId; 

FUNCTION Legends: KeybdId; 

PROCEDURE SetLegends(id: KeybdId); 

FUNCTION KeyIsDown(key: KeyCap): Boolean; 
PROCEDURE KeyMap(VAR keys: KeyCapSet); 


FUNCTION KeybdPeek(repeats: Boolean; index: KeybdQIndex; 
VAR event: KeyEvent): Boolean; 


FUNCTION AltKeyPeek(repeats: Boolean: index: KeybdQIndex; 
VAR event: KeyEvent): Boolean; 


FUNCTION KeybdEvent(repeats: Boolean; wait: Boolean; 
VAR event: KeyEvent): Boolean; 


FUNCTION AltKeyEvent(repeats: Boolean; wait: Boolean; 
VAR event: KeyEvent): Boolean; 


PROCEDURE RepeatRate(VAR initial: HilliSeconds; 
VAR subsequent: MilliSeconds): 
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Lisa Hardware Interface & lmplementation 


PROCEDURE SetRepeatRate(initial: MilliSeconds; subsequent: MilliSeconds); 
PROCEDURE KeyPushed(key: KeyCap); 

FUNCTION NMIKey: KeyCap; 

PROCEDURE SetNHIKey(key: KeyCap); 

FUNCTION ToggleKey: KeyCap; 

PROCEDURE SetToggleKey(key: KeyCap); 

FUNCTION KeyToAscii(key: KeyCap: State: Integer): Ascii: 

FUNCTION MicroTimer: MicroSeconds; 

FUNCTION Timer: 4illiSeconds; 

PROCEDURE AlarmAssign(VAR alarm: AlarmNumber; routine: LogicalAddress); 
PROCEDURE AlarmReturn(alarm: AlarmNumber); 

PROCEDURE AlarmAbsolute(alarm: AlarmNumber: time: HilliSeconds): 
PROCEDURE AlarmRelative(alarm: AlarmNumber; delay: HilliSeconds); 
PROCEDURE AlarmOff (alarm: AlarmNumber); 

PROCEDURE DateTime(VAR date: DateArray): 

PROCEDURE SetDateTime(date: DateArray); 

PROCEDURE DateToTime(date: DateArray; VAR time: Seconds); 

FUNCTION TimeStamp: Seconds; 

PROCEDURE SetTimeStamp(time: Seconds); 


PROCEDURE TimeToDate(time: Seconds: VAR date: DateArray); 
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Lisa Hardware Interface & Implementation 


IMPLEMENTATION 
(in 68000 assembly language) 


000000: 4£56 0000 HWINTL LINK A6, #$0000 


000004: 436F 7079 7269 "Copyright 1983, Apple Computer Inc. ' 
OO00DA: 6768 7420 3139 
000010: 3833 2020 4170 
000016: 706C 6520 436F 
00001C: 6D70 7574 6572 
000022: 2049 6E63 2E20 


000028: 2F07 DRIVERIN D7, -(A7T) 
00002A: 4247 D7 
000020: 4645 #$5 
00002E: 2E1F (A7)+. D7 
000030: 4£75 


000032: 206F DISKDRIV _L  $0004(A7), AO 
000036: 2F07 -L D7, -(A7) 
000038: 3E3C .W  #$0068, D7 
go003C: 4545 #$5 

OOO03E: 2E1F -L (AT)+,D7 
000040: 205F Lt (AT)+,A0 
000042: S84F .W 84, A7 
00044: 4ED0 (AQ) 


000046: 206F TWIGGYDR : $0004(A7), AG 
O0004A: 2F07 : D7, -(A7) 
00004C: SE3C : #$O06A, D7 
000050: 4645 #$5 

000052: 2E1F : (A7)+, D7 
000054: Z05F : (A7) +. AO 
000056: 5S84F . #$4, A7 
000058: 4ED0 (AQ) 


CO005A: 205F DISKSYNG ‘ (A7)+, AO 
00005C: 101F : (A7)+, BO 
QOO05E: 2F07 : D7, -(A7) 
000060: 3E3C . #$006C, D7 
000064: 4£45 #$5 
000066: 2E1F ; (A7)+, D7 
go00068: 4EDO (AO) 


COOOBA: Z2FO7 ; D7, -(A7) 
60006C: 3E3C . #$008C, D7 
000070: 4645 #35 
000072: 2E1F (A7)+, D7 
000074: 4&75 
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000076: 2F07 COPSSYNG MOVE.L D7, -(A7) 
000078: 3E3C MOVE. = #$00AA, D7 
ooo07C: 4645 TRAP #S5 
OOO07E: 2E1F MOVE.L (A7)+, D7 
000080: 4E75 RTS 


000082: 2F07 MOVE.L D7, -(A7) 
000084: 3E3C MOVE.W #$009E, D7 
000088: 4£45 #35 
OO008A: 2E1F : (AT) +, D7 
o0008C: 4£75 


O0008E: 2F07 MOUSELOC : D7, -(A7) 
000090: 3E3C : #$0002, D7 
000094: 4£45 #$5 

000096: 2E1F : (A7)+, D7 
000098: 4CDF -L (A7)+, AO/A1 
OO009C: 3281 : D1, (A1) 
O0009E: 225F ; (A7)+, AT 
OOO0A0: 3280 , DO, (A1) 
O000A2: 4ED0 (AQ) 


O000A4: 205F HOUSEUPD .L (AT)+, AO 
QO00AS: 201F L (AT)+, DO 
QOO0AS: 2F07 -L D7. -(A7) 
OOODAA: 3E3C -W  #$0004, D7 
OOOOAE: 4€45 #$5 

O000B0: 2E1F (Lt  (AT)+,D7 
O000B2: 4EDO (AQ) 


000034: 205F MOUSESCA : (A7)+, AO 
OO00B6: 101F (A7)+, DO 
000088: 2F07 -L DV, -(A7) 
O000BA: 3E3C .W  #$0006, D7 
OOOOBE: 4645 #$5 

oco0ce: 2E1F -L (AT)+,D7 
000002: 4EDO (AQ) 


000004: 205F P (A7)+, AO 
0000C6: 301F . (A7)+, DO 
o000Ce: 2F07 : D7. -(A7) 
OO00CA: 3E3C : #$0008, D7 
OOOOCE: 4645 #$5 
000000: 2E1F : (A7)+, D7 
000002: 4&D0 (AQ) 


000004: 2F07 : D7, -(A7) 
Q000D6: 3E3C : #$00A8, D7 
OOGODA: 4€45 » #65 

O0O0DC: 2E1F : (A7)+, D7 
OOCODE: 2F40 : DO, $0004 (A7) 
OGOOE2: 4€75 
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O000E4: 4CDF 0100 CURSORLO MOVEM.L (A7)+, AO 
OO00E8: 321F MOVE.W (A7)+, D1 
OOOCEA: 301F MOVE.W  (A7)+, DO 
OOOOEC: 2F07 MOVE.L D7, -(A7) 
QO00EE: 3E3C HOVE.W = #$000A, D7 
O00OF2: 4E45 TRAP #$5 
OO00F4: 2E1F MOVE.L (A7)+, D7 
O000F6: 4&D0 JMP (AQ) 


OO0OF8: 205F MOVE.L (A7)+, AO 
OOCOFA: 101F MOVE.B (A7)+, DO 
QOCOFC: 2F07 MOVE.L D7, -(A7) 
OOCOFE: 3E3C HOVE.W #$000C, D7 
000102: 4645 TRAP #5 
000104: 2E1F HOVE.L  (A7)+, D7 
000106: 4ED0 JMP (AQ) 


000108: 302F CURSORIM MOVE.W $0010(A7), DO 
000106: 322F MOVE.W  $000E(A7), D1 
000110: 342F MOVE.W  $000C(A7), D2 
000114: Z06F HOVE.L $0008(A7), AO 
000118: 226F MOVE.L  $0004(A7), Al 
00011C: 48E7 MOVEM.L D2/A2/A3, -(A7) 
000120: 2470 MOVE.L #$00FA0000, AZ 
000126: 2670 HOVE.L #$00FA0040, A3 
000120: 5342 SUBQ.W = #$1, D2 

00012E: 3408 MOVE.W (A0)+, (A2)+ 
000130: 36D9 MOVE.W = (A1)+, (A3)+ 
000132: SICA DBF D2, *-$0004 ; 0000012E 
000136: 207C MOVE.L  #$00FA0000, AD 
000130: 2270 HOVE.L  #$00FA0040, A1 
000142: 4CDF MOVEM.L (A7)+, D2/A2/A3 
000146: 2F07 MOVE.L D7. -{A7) 
000148: 3E3C MOVE.W  #$000E, D7 
000140: 4645 TRAP #35 

OOO14E: 2E1F MOVE.L = (A7)+, D7 
000150: 205F MOVE.L  (A7)+, A0 
000152: DEFC ADDA.W  #$000E, A7 
000156: 4ED0 JHP (AQ) 


000158: 2F07 CURSORHT MOVE.L D7, -(A7) 
O0015A: 3E3C MOVE.W  #$0010, D7 
QOO1SE: 4645 TRAP #$5 
000160: 2E1F MOVE.L  (A7)+, D7 
000162: 4E75 RTS 


000164: 2F03 CURSORSH MOVE.L D3, -(A7) 
000166: 362F MOVE.W $0008(A7), D3 
O0016A: 342F HOVE.W  $000A(A7), D2 
Q0016E: 322F MOVE.W  $000C(A7), D1 
000172: 302F MOVE.W $000E(A7). DO 
000176: 2F07 MOVE.L D7, -{A7) 
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000178: 3E3C 0012 MOVE.W #$0012, D7 
00017C: 4645 TRAP #$5 
QCOI7E: 2E1F MOVE.L (A7)+,D7 
000180: 261F MOVE.L (A7)+, 03 
000182: 205F MOVE.L  (A7)+, AO 
000184: S04F ADDQ.W = #$8, A7 
000186: 4ED0 JMP (AO) 


000188: 2F07 CURSORDI MOVE.L D7, -{A7) 
OO018A: 3E3C MOVE.W = #$0014, D7 
OOO18E: 4645 TRAP #$5 
000190: 2E1F MOVE.L  (A7)+, D7 
000192: 4E75 RTS 


000194: 2F07 CURSOROB MOVE.L D7, -{A7) 
000196: 3E3C MOVE.W  #$006E, D7 
QO019A: 4645 TRAP #SS 
00019C: 2E1F MOVE.L (A7)+,D? 
O0O19E: 4E75 RTS 


O001A0: 2F07 CURSORIN MOVE.L D7, -(A7) 
O001A2: 3E3C MOVE.W #$0070,D7 
OOO1A6: 4645 TRAP #S5 
DOOIA8: 2E1F MOVE.L (A7)+,D7 
OODIAA: 4E75 RTS 


OO01AC: 2F07 CURSORRE MOVE.L D7, -(A7) 
OOO1AE: 3E3C MOVE.W #$009C, D7 
0001B2: 4645 TRAP #$5 
0001B4: 2E1F MOVE.L (A7)+,D7 
0001B6: 4€75 RTS 


000188: 302F MOVE.W $0010{A7), DO 
0001BC: 322F HOVE.W  $000E(A7), D1 
000100: 342F MOVE.W $000C(A7), D2 
000104: 206F MOVE.L  $0008(A7), AO 
0001C8: 226F MOVE.L $0004(A7), Al 
0001CC: 48E7 MOVEH.L D2/A2/A3, -(A7) 
g001D0: 247C MOVE.L #$00FA0000, AZ 
0001D6: 267C MOVE.L  #$00FA0040, A3 
Q001DC: 5342 SUBQ.W = #$1, D2 

OO01DE: 3406 MOVE.W = (AD)+, (AZ)+ 
Q001EO: 36D9 MOVE.W = (A1)+, (A3)+ 
OOO1E2: SICA FFFA DBF D2, *-$0004 : 000001DE 
QOC1E6: 207C OOFA MOVE.L #$00FA0000, AO 
OOOIEC: 2270 OOFA MOVE.L #$00FA0040, Al 
OOOIF2: 4CDF 0C04 MOVEM.L (A7)+, D2/A2/A3 
OOOIF6: 2F07 MOVE.L D7, -(A7) 
OOOI1F8: 3E3C 0086 MOVE.W #0086, D7 
OOO1FC: 4645 TRAP #35 

OOOIFE: 2E1F MOVE.L  (A7)+,D7 
000200: 205F MOVE.L (A7)+, AO 
000202: DEFC ADDA.W #$000E, A? 
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000206: (AQ) 


000208: BUSYDELA (A7)+. AO 
00020A: (A7)+, DO 
000200: D7, -(A7) 
00020E: #$0088, D7 
000212: #$5 
000214: (A7)+, D7 
000216: (AO) 


000218: FRAMECOU D7, -{A7) 
0002 1A: #$0016, D7 
00021E: #$5 

000220: (A7)+, D7 
000222: DO, $0004(A7) 
000226: 


000228: SCREENSI D7, -(A7) 
00022A: #$008A, D7 
00022E: #$5 

000230: (A7)+, D7 
000232: (AT) +, AO/A1 
000236: D1, (A1) 
000238: (A7)+, At 
00023A: DO, (A1) 
000230: (AQ) 


00023: SCREENAD D7, -(A7) 
000240: #$0018, D7 
000244: #$5 

000246: (A7)+, D7 
000248: AQ, $0004(A7) 
o0024c: 


D0024E: AL TSCREE D7, -(A7) 
000250: #S001A, D7 
000254: #$5 

000256: (A7)+, D7 
000258: AO, $0004 (A7) 
00025¢C: 


00025E: SCREENKE D7, -(A7) 
000260: #$008E, D7 
000264: #$5 

000266: (AT) +, D7 
000268: DO, $0004(A7) 
00026C: 


00026: SETSCREE (A7)+, AO 

000270: (A7)+, DO 

000272: D7, -(A7) 

000274: #$0090, D7 
000278: $5 
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00027A: 2E1F MOVE.L (A7)+, D7 
00027C: 4€D0 JMP (AQ) 


000Z7E: 2F07 MOVE.L D7, -(A7) 
000280: 3E3C MOVE.W  #$001C, D7 
000284: 4645 TRAP #35 

000286: 2E1F MOVE.L (A7)+, D7 
000288: 3F40 MOVE.W DO, $0004(A7) 
00028C: 4E75 RTS 


00028E: 205F MOVE.L  (A7)+, AO 
000290: 301F MOVE.W (A7)+, D0 
000282: 2F07 MOVE.L D7, -(A7) 
000294: 3E3C MOVE.W = #$00TE, D7 
000298: 4645 TRAP #$5 
00029A: 2E1F MOVE.L  (A7)+,D7 
00029C: 4ED0 JMP (AQ) 


0002SE: 205F MOVE.L (A7)+, A0 
0002A0: 301F MOVE.W (A7)+, D0 
O002A2: 2F07 MOVE.L D7, -(A7) 
0002A4: 3E3C MOVE.W  #$0020, D7 
0002A8: 4&45 TRAP e$s 
OO0ZAA: 2E1F MOVE.L = (A7)+,D7 
0002AC: 4EDO JHP (AQ) 


COO2AE: 2F07 DIMCONTR MOVE.L 07, -(A7) 
0002B0: 3E3C HOVE.W #$0082, D7 
000284: 4E45 TRAP #$5 

0002B6: 2E1F HOVE.L = (A7)+, D7 
0002B8: 3F40 MOVE.W DO, $0004(A7) 
0002BC: 4£75 RTS 


OO02BE: 205F SETDINCO MOVE.L (A7)+, AO 
000200: 301F MOVE.W (A7)+,D0 
000202: 2F07 MOVE.L D7, -(A7) 
000204: 3E3C MOVE.W #$0084,D7 
000208: 4645 TRAP #35 
O002CA: 2E1F MOVE.L  (A7)+,D7 
0002CC: 4EDO JHP (AO) 


0002CE: 2F07 FADEDELA MOVE.L D7, -(A7) 
000200: 3E3C MOVE.W #$0022, D7 
000204: 4£45 TRAP #$5 

0002D6: 2E1F MOVE.L  (A7)+, D7 
0002D8: 2F40 HOVE.L DO, $0004(A7) 
0002DC: 4E75 RTS 


0002DE: 205F SETFADED MOVE.L (A7)+, AG 
0002£0: 201F HOVE.L (A7)+, D0 
0002E2: 2F07 MOVE.L D7, -(A7) 
0002E4: 3E3C MOVE.W #0024, D7? 
G002E8: 4E45 TRAP #$5 
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O002EA: MOVE.L (A7)+, D7 
0002EC: JHP (AQ) 


O002EE: POWERDOW MOVE.L D7, -(A7) 
0002F 0: MOVE.W  #$0026, D7 
0002F 4: TRAP #$5 

0002F 6: MOVE.L  (A7)+, D7 
0002F 8: RTS 


O002F A: POWERCYC MOVE.L (A7)+, AD 
0002FC: MOVE.L (A7)+, DO 
O002FE: MOVE.L 07, -(A7) 
000300: HOVE.W #$0028, D7 
000304: TRAP #$5 
000306: MOVE.L  (A7) +. D7 
000308: JMP (A) 


60030A: MOVE.L D7, -(A7) 
000300: MOVE.W  #$002A, D7 
000310: TRAP #55 

000312: MOVE.L (A7)+, D7 
000314: MOVE.W DO, $0004(A7) 
000318: RTS 


00031A: SETVOLUM MOVE.L  (A7)+, AO 
000310: MOVE.W (A7)+, DO 
00031E: MOVE.L D7, -(A7) 
000320: MOVE.W #0020, D7 
000324: TRAP #35 
000326: MOVE. (A7)+,D7 
000328: JMP (A0) 


00032A: MOVE.L (A7)+, AO 
00032C: MOVE.L (A7)+, DO 
00032E: MOVE.L D7, -(A7) 
000330: MOVE.  #$002E, D7 
000334: TRAP #35 
000336: MOVE.L (A7)+, D7 
000338: JMP (AO) 


000338: STLENCE MOVE.L D7, -(A7) 
000336: MOVE.W #$0030, D7 
000340: TRAP #35 
000342: MOVE.L (A7)+,D7 
000344: RTS 


000346: MOVE.L (A7)+, AO 
000348: MOVE.L  (A7)+,D1 
00034A: MOVE.L (A7)+, DO 
00034C: MOVE.L D7, -(A7) 
00034E: MOVE.W  #$0032, D7 
000352: TRAP #35 
000354: MOVE.L  (A7)+.D? 
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000356: JMP (AQ) 


000358: KEYBOARD MOVE.L D7, -(A7) 
00035A: MOVE.@ #$0038, D7 
OO035E: TRAP #5 

000360: MOVE.L  (A7)+, D7 
000362: MOVE.W 00, $0004(A7) 
000366: RTS 


000368: LEGENDS MOVE.L D7, -(A7) 
OOO36A: MOVE.W  #$0096,D7 
00036E: TRAP #5 

000370: MOVE.L = (A7)+, D7 
000372: MOVE.W 00, $0004(A7) 
000376: RTS 


000378: SETLEGEN MOVE.L  (A7)+, AQ 
00037A: MOVE.W (A7)+, D0 
00037C: MOVE.L D7, -(A7) 
00037E: MOVE.  #$0098, D7 
000382: TRAP #$5 
000384: MOVE.L  (A7)+, 07 
000386: JMP (AG) 


000388: KEYISDOW MOVE.L (A7)+, AQ 
00038A: CLR. DO 
00038C: MOVE.B  (A7)+, DO 
00038E: HOVE.L D7, -(A7) 
000390: MOVE.W  #$0034, D7 
000394: TRAP 45 
000398: MOVE.L  (A7)+, D7 
000398: MOVE.B D1, (A7) 
00039A: (AQ) 


00039C: KEYMAP : (A7)+, AO/A1 
0003A0: : D3, -(A7) 
O003A2: 5 D7, -(A7) 
0003A4: : #$0036, D7 
O003A8: #$5 
OODOSAA: F (AT)+, D7 
DOO3AC: D3, (A1)+ 
OOO3AE: . D2, (A1)+ 
000380: ; D1, (A1)+ 
000382: : DO, (A1)+ 
000384: : (A7)+, D3 
000386: (ag) 


000388: KEYBDPEE MOVEH.L (A7)+, AO/A1 
00038C: MOVE.W (A7)+,D1 
OO003BE: MOVE.B  (A7)+, DO 
0003C0: MOVEM.L 0D3-D6, -(A7) 
000304: MOVE.L D7, -(A7) 
000306: MOVE.W  #$003C, D7 
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0003CA: 
0003CC: 
OO03CE: 


000300: 
0003D4: 
O003D6: 
0003D8: 
o003DC: 
O003DE: 
0003E2: 
0003E4: 
OOO3E6: 
0003E8: 
OO03EA: 
O003EC: 
OOO3EE: 
OOO3SF 0: 
0003F 2: 
0003F 6: 
OO03F8: 


OO03F A: 
OOO3FE: 
000400: 
000402: 
0004086: 
000408: 
000400: 
00040E: 
000410: 


000412: 
000416: 
000418: 
00041A: 
0004 1E: 
000420: 
000424: 
000426: 
000428: 
00042A: 
00042C: 
00042E: 
000430: 
000432: 
000434: 
000438: 
00043A: 


00043¢: 
00043E: 
000442: 
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4E45 
2E1F 
6016 


4CDF 0300 
321F 
101F 
48E7 1£00 
2F 0? 
3E3C 0092 
4E45 
2E1F 
1201 
1202 
32C3 
3204 
32C5 
2206 
4CDF 0078 
1E80 
4ED0 


4CDF 0300 
121F 
101F 
48E7 1£00 
2FO7 
3E3C 003A 
4F45 
2E1F 
6016 


4CDF 
121F 
1O1F 
48£7 
2F 07 
3E3C 
4F45 
2E1F 
1201 
1262 
32C3 
3204 
32C5 
2206 
4CDF 0078 
1E80 
4ED0 


2F07 
3E3C 003E 
4645 


ALTKEYPE 


KEYBDEVE 


ALTKEYEV 


TRAP 
MOVE. L 
BRA. S 


MOVEM. L 
HOVE. 
MOVE. B 
HOVEM. L 
MOVE. L 
HOVE. W 
TRAP 
HOVE. L 
MOVE.B 
MOVE. B 
MOVE. ¥ 
HOVE. ¥ 
MOVE. W 
MOVE.L 
MOVEM. L 
MOVE. B 
JMP 


MOVEM. L 


MOVEM. L 
MOVE. B 
HOVE. B 
MOVEM. L 
MOVE.L 
HOVE. # 
TRAP 
HOVE.L 
MOVE.B 
HOVE. B 
MOVE. W 
HOVE. ¥ 
MOVE. W 
MOVE.L 
MOVEM. L 
MOVE. B 
JHP 


MOVE.L 
MOVE. W 
TRAP 
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#g5 
(A7)+, D7 
*+$0018 


(A7)+, AD/A1 
(A7)+, D1 
(A7)+, DO 
D3-D6, -(A7) 
D7, -(A7) 
#$0092, D7 
#$5, 
(A?) +, D7 
D1, (A1)+ 
D2, (A1)+ 
D3, (A1)}+ 
D4, (A1)+ 
DS, (A1)+ 
DG, (A1)+ 
(A7)+, 03-D6 
DO, (A7) 
(AQ) 


(A7)+, AO/A1 
(A7)+, D1 
(A7)+, DO 
03-D6, -(A7) 
D7, -(A7) 
#$003A, D7 
#$5 

(A7)+, D7 
*+$0018 


(A7)+, AD/A1 


#$0094, D7 
#$5 
(A7)+, D7 
D1, (A1)+ 
D2, (A1)+ 
D3, (A1)+ 
D4, (A1)+ 
DS, (A1)+ 
D6, (A1)+ 
(A7)+, D3-D6 
DO, (A7) 
(AQ) 


D7, -(A7) 
#$003£, D7 
#$S 


; 00000366 


: 00000428 
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000444: 2E1F MOVE.L = (A7)+, D7 
000446: 4CDF 0300 MOVEM.L (A7)+, AQ/A1 
00044A: 2281 MOVE.L D1, (A1) 
00044C: 225F MOVE.L (A7)+, Al 
00044E: 2280 MOVE.L DO, (A1) 
000450: 4€00 JHP (AQ) 


000452: 205F SETREPEA MOVE.L  (A7)+, AD 
000454: 221F MOVE.L  (A7)+, D1 
000456: 201F MOVE.L (A7)+, DO 
000458: 2F07 MOVE.L D7, -(A7) 
00045A: 3E3C MOVE.W #$0040, D7 
O0045E: 4£45 TRAP #SS 
000460: 2E1F MOVE.L (A7)+,D7 
000462: 4&DO JMe (AO) 


000464: 205F KEYPUSHE MOVE.L  (A7)+, AO 
000466: 4240 CLR. W DO 

000468: 101F MOVE. B 

O0046A: 2F07 HOVE. L 

00046C: 3E3C MOVE.  #$0042, D7 
000470: 4645 TRAP #$5 
000472: 2E1F MOVE.L  (A7)+,D7 
000474: 4ED0 JMP (AG) 


000476: 2F07 NHIKEY HOVE.L D7, -(A7) 
000478: 3E3C MOVE.W #$0072, D7? 
000470: 4645 TRAP #35 

OO047E: 2E1F MOVE.L (A7)+,D7 
000480: 1F40 HOVE.B D0, $0004(A7) 
000484: 4£75 RTS 


000486: 205F SETNMIKE MOVE.L (A7)+,A0 
000488: 4240 CLR. W DO 

O0048A: 101F MOVE.B (A7)+,D0 
00048C: 2F07 MOVE.L D7, -(A7) 
O0048E: 3E3C MOVE.W  #$0074, D7 
000492: 4&45 TRAP #5 
000494: 2E1F MOVE.L (A7)+, D7 
000496: 4ED0 JHP (A0) 


000498: 2F07 TOGGLEKE HOVE.L D7, -{A7) 
00049A: 3E3C MOVE.W #$00A0, D7 
O0049E: 4&45 TRAP #$5 

O004A0: 2E1F MOVE.L (A7)+, D7 
O0004A2: 1F40 MOVE.B DO, $0004(A7) 
OO04A6: 4E75 RTS 


0004A8: 205F SETTOGGL MOVE.L  (A7)+, AO 
OOO4AA: 4240 CLR. W DO 

OOO4AC: 101F MOVE.B (A7)+,D0 
OO04AE: 2F07 HOVE.L D7, -(A7) 
000480: 3E3C MOVE.¥  #$00A2, D7 
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000484: 4645 TRAP #$5 
000486: 2E1F MOVE.L (A7)+, D7 
000488: 4ED0 JHP (A0) 


0004BA: 2F07 HICROTIM MOVE.L D7, ~(A7) 
0004BC: 3E3C MOVE.W = #$009A, D7 
0004CO: 4645 TRAP #S5 

0004C2: 2E1F MOVE.L  (A7)+, D7 
0004C4: 2F40 MOVE.L DO, $0004(A7) 
000408: 4£75 RTS 


OO04CA: 2F07 MOVE.L D7, -(A7) 
0004CC: 3E3C MOVE.W = #$0044, D7 
000400: 4645 TRAP #$5 

000402: 2E1F MOVE.L (A7)+,D7 
0004D4: 2F40 DO, $0004(A7) 
000408: 4E75 


O004DA: 206F ALARMASS 4 $0004 (A7), AD 
OOO4DE: 2F07 i D7, -(A7) 
OOO4E0: 3E3C : #$0046, D7? 
000464: 4E45 #55 

OOO04E6: 2E1F . (A7)+, D7 
OOO4ES: 205F : (A7)+, AD 
OOO4EA: S84F 

DOO4EC: 225F 

OOO4EE: 3280 

O004F0: 4ED0 


0004F2: 205F ALARMRET : (A7)+, AG 
0004F4: 301F . (A7)+, DO 
0004F6: 2F07 ; D7, -(A7) 
0004F8: 3E3C : #$0048, D7 
O004FC: 4E45 #$5 

OOO4FE: 2E1F : (A7)+, D7 
000500: 4ED0 ~ (AO) 


000502: 205F ALARMABS : (A7)+, AO 
000504: 221F : (A7)+, D1 
000506: 301F : (A7)+, DO 
000508: 2F07 : D7, -(A7) 
00050A: 3E3C : #$004A, D7 
OOOSOE: 4645 #E5 
000510: 2E1F ; (A7)+, DB? 
000512: 4£D0 (AQ) 


000544: 205F ALARMREL : (A7)+, AO 
000516: 221F : (A7)+, D1 
000518: 301F ; (A7)+, DO 
OO0S1A: 2F07 : D7, -(A7) 
00051C: 3E3C : #$004C, D7 
000520: 4645 #SS 
000522: 2E1F i (A7)+, D7 
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000524: 4EDO (A0) 


000526: 205F ALARMOFF .L (A7)4,A0 
000528: 301F -W (A7)+. DO 
00052A: 2F07 L007, -(A7) 
000520: 3E3C 004E W  &$004E, D7 
000530: 4645 #5 
000532: 2E1F .L (A7)+,D7 
000534: 4EDO (AQ) 


000536: 4CDF 0300 DATETIME -L (A7)+, AQ/AT 
00053A: 48E7 1800 -L D3/D4, -(A7) 
00053E: 2F07 : D7, -(A7) 
000540: 3E3C 0050 : #$0050, D7 
000544: 4£45 #5 

000548: 2E1F ; (A7)+, D7 
000548: 32c0 : DO, (A1)+ 
00054A: 32C1 ; D1, (A1)+ 
00054C: 32C2 : D2, (A1)+ 
Q0054E: 3203 : D3, (A1)+ 
000550: 3204 ; D4, (A1)+ 
000552: 4CDF .L (A7)+, D3/D4 
000556: 4EDO (AQ) 


000558: 4CDF -L (A7)+, AO/A1 
00055C: 48E7 .L 03/D4, -(A7) 
000560: 3019 : (A1)+, DO 
000562: 3219 ; (A1)+, D1 
000564: 3419 ; (A1)+, D2 
000566: 3619 : (A1)+, D3 
000568: 3819 . (A1)+, D4 
O00S6A: 2F07 : D7, -(A7) 
QOOS6C: 3E3C ; #$0052, D7 
000570: 4£45 #$5 
000572: 2E1F : (A7)+, D7 
000574: 4CDF -L (A7)+, D3/D4 
000578: 4EDO (AQ) 


O00S7A: 226F DATETOTI : $0008 (A7). Al 
OOOS7E: 48E7 -L 03/04, -(A7) 
000582: 3019 : (A1)+, DO 
000584: 3219 : (A1)+, 01 
000586: 3419 : (A1)+, D2 
000588: 3619 : (A1)+, D3 
O0058A: 3819 . (A1)+, D4 
O00S8C: 2F07 : D7, -(A7) 
OOOS8E: 3E3C 0054 : #$0054, D? 
000592: 4£45 #85 

000594: 2E1F ¢ (A7)+, D7 
000596: 4CDF 0018 -L (A7)+, D3/D4 
00059A: 4CDF 0300 -L (A7)+, AOSAI 
O00S9E: 2280 MOVE.L DO, (A1) 
OO05A0: S84F ADDQ.W #$4, A7 
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0005A2: JHP (AG) 


O005A4: TINESTAM MOVE.L 07, -(A7) 
0005A6: HOVE.W  #$0058, D7 
DOOSAA: TRAP $5 

OO05AC: MOVE.L  (A7)+,D7 
DOOSAE: MOVE.L DO, $0004(A7) 
Q005B2: RTS 


0005B4: SETTINES HOVE.L  (A7)+, A0 
000586: ; (A7)+, BO 
000588: : D7, -(A7) 
OOO5BA: ‘ #3005A, D7 
OOOSBE: #35 
ooosco: : (A7)+, D7 
o005C2: (AD) 


000504: TIMETODA MOVEH.L (A7)+, AO/A1 
0005C8: MOVE.L  (A7)+, D0 
OO005CA: HOVEH.L D3/D4, -(A7) 
OOOSCE: MOVE.L D7, -(A7) 
000500: MOVE.W #$005C, 07 
000504: TRAP #$5 

0005D6: MOVE.L  (A7)+, D7 
oOOoSDB: MOVE.W DOD, (A1)+ 
OOOSDA: MOVE. D1, (A1)+ 
o005DC: MOVE.W D2, (A1)+ 
OO005DE: MOVE.W D3, (A1)+ 
OOOSE0: MOVE.W D4, (A1)+ 
OO005E2: MOVEM.L (A7)+, D3/D4 
OOOSE6: JMP (AQ) 


OOOSE8: UNLK AG 


— Finis — 
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